|
www.mxdraw.com
|
   |
   |
IMxDrawHatch::AddPatternDefinitionEx 方法
|
www.mxdraw.com
|
|
|
增加一个图案填充数据
[helpstring("method AddPatternDefinitionEx")]
HRESULT AddPatternDefinitionEx([in] BSTR pszDefinitionData, [in] DOUBLE dScale, [out,retval] VARIANT_BOOL* pRetOk);|
参数 |
说明 |
|
[in] BSTR pszDefinitionData |
图案填充字符串数据,字符串格式参考控件的AddPatternDefinition函数。 |
|
[in] DOUBLE dScale |
图案缩放比例 |
成功返回TRUE
例如: VB
'《---------------------------------------》
'绘制一个有图案的填充
'angle, x-origin,y-origin, delta-x,delta-y,dash-1,dash-2, …
'45 = angle 是图案线角度.
'0 = x-origin 是第一个填充线经过的点位置X坐标
'0 = y-origin 是第一个填充线经过的点位置Y坐标
'0 = delta-x 是下一个填充线相对前一个线的X方向偏移
'0.125 = delta-y 是下一个填充线相对前一个线的Y方向偏移
MxDrawX1.AddPatternDefinition "MyHatchPattern1", "((45, 0,0, 0,0.125))"
MxDrawX1.PatternDefinition = "MyHatchPattern1"
'定义一个路径的开始点
MxDrawX1.PathMoveToEx 600, 3300, 0, 0, 0.3
'路径的一下个点
MxDrawX1.PathLineTo 700, 3300
'路径的一下个点
MxDrawX1.PathLineTo 700, 3400
'路径的一下个点
MxDrawX1.PathLineTo 600, 3300
Dim lId As Long
'把路径变成一个填充,80,是填充图案的缩放比例.
lId = MxDrawX1.DrawPathToHatch(100)
MxDrawX1.UpdateDisplay
Dim database As MxDrawDatabase
Set database = MxDrawX1.GetDatabase()
Dim hatch As MxDrawHatch
Set hatch = database.ObjectIdToObject(lId)
hatch.ClearPatternDefinition
hatch.AddPatternDefinitionEx "((45, 0,0, 0,0.25) (45, 0.176776695,0, 0,0.25, 0.125,-0.0625))", 10#